home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Highspeed pascal.adf
/
Interface
/
Keymap.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
880b
|
58 lines
Unit Keymap;
Interface
Uses Exec;
Type
tKeyMapResource = Record
kr_Node: tNode;
kr_List: tList;
End;
tKeyMap = Record
km_LoKeyMapTypes: pShortInt;
km_LoKeyMap: pLongInt;
km_LoCapsable: pShortInt;
km_LoRepeatable: pShortInt;
km_HiKeyMapTypes: pShortInt;
km_HiKeyMap: pLongInt;
km_HiCapsable: pShortInt;
km_HiRepeatable: pShortInt;
End;
tKeyMapNode = Record
kn_Node: tNode;
kn_KeyMap: tKeyMap;
End;
Const
KCB_ALT = $1;
KCF_ALT = $2;
DP_2DINDEXMASK = $F;
DPB_MOD = $0;
DPF_MOD = $1;
KCB_NOP = $7;
DP_2DFACSHIFT = $4;
KCF_NOP = $80;
KCB_CONTROL = $2;
KCF_CONTROL = $4;
KC_VANILLA = $7;
KCB_STRING = $6;
KCB_DEAD = $5;
KCF_STRING = $40;
KCF_DEAD = $20;
KCB_DOWNUP = $3;
DPB_DEAD = $3;
KCF_DOWNUP = $8;
DPF_DEAD = $8;
KCB_SHIFT = $0;
KCF_SHIFT = $1;
KC_NOQUAL = $0;
End.